% V20210224 - 7.1 GW_USE_THEME_CUSTO_ONCE

INCLUDE "GW.bas"

p = GW_NEW_PAGE()

% Prepare title bar string.
Title$ = GW_ADD_BAR_TITLE$("USE_THEME_CUSTO_ONCE Example")

% Add title to page.
GW_ADD_TITLEBAR(p,Title$)

% Collect parameters into a string.
myCusto$ = "color=b mini"

% Activate a 1-time customization.
GW_USE_THEME_CUSTO_ONCE(myCusto$)

% This control WILL be customized with myCusto$.
GW_ADD_BUTTON(p, "Customized Button", "")

% This control will NOT be customized.
bt2 = GW_ADD_BUTTON(p, "NOT Customized Button", "")

% Show the page.
GW_RENDER(p)

DO
 % Wait for user action.
 r$ = GW_WAIT_ACTION$()

 % Place here any necessary code to process user actions.

 % Example feedback.
 POPUP r$

% End when BACK key is pressed.
UNTIL r$ = "BACK"

END "End of USE_THEME_CUSTO_ONCE example."